Amiga Plus 1995 #1/Amiga Plus 1995 #1.iso/demoversionen/diavolo/install_diavolo_backup

Text File | 1994-12-13 | 6KB | 175 lines

; Install-Script für Diavolo-Backup
;
; © 1993 Martin Korndörfer
;
; $VER:DiavoloInstall 1.1 (14-Jun-93)

(set @app-name "Diavolo Backup")

(set @language "deutsch")

(welcome "Willkommen zur Installation von Diavolo Backup!")

(set Ok 0)

(complete 0)

(set savedest @default-dest)

(set ToDo (askoptions (prompt "Bitte wählen Sie die gewünschte Operation:")
                      (help @askoptions-help)
                      (choices "Diavolo Backup installieren"
                               "XPK-library installieren bzw. updaten")
;                               "Komplettes XPK-Paket auf Platte kopieren"
;                               "Magic Menu installieren")
                      (default $3))
)

(if (<> (BITAND ToDo $1) 0)
    ((set newdest (askdir (prompt "Bitte wählen Sie, wohin Diavolo Backup installiert werden soll.")
                          (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin Diavolo Backup \
installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
Installationsprogramm wird KEINE eigene Schublade für Diavolo Backup anlegen.\n\n" @askdir-help))
                          (default (tackon savedest "Diavolo"))
                          (newpath))
     )

     (if (= (exists newdest) 0)
         (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
                          (help @makedir-help)
                          (infos))
     )

     (set @default-dest newdest)

     (complete 5)

     (copyfiles (prompt "Kopiere Diavolo Backup...")
                (help @copyfiles-help)
                (source "")
                (dest @default-dest)
                (pattern "(Diavolo|#?.prefs)")
                (infos))

     (copyfiles (prompt "Kopiere Sprachdateien...")
                (help @copyfiles-help)
                (source "catalogs")
                (dest (tackon @default-dest "catalogs"))
                (all))

     (tooltype (dest (tackon @default-dest "Diavolo"))
               (prompt "Setze Icon-Informationen...")
               (setstack 10240)
               (noposition))
     )
)

(complete 10)


(if (<> (BITAND ToDo $2) 0)
    ((copylib (prompt "Installiere XPKmaster.library...")
              (help @copylib-help)
              (source "libs/xpkmaster.library")
              (dest "libs:")
              (optional nofail askuser))

    (complete 20)

    (foreach "libs/compressors" "xpk#?.library"
      (copylib (prompt ("Installiere %s" @each-name))
               (help @copylib-help)
               (source (tackon "libs/compressors" @each-name))
               (dest "libs:compressors")
               (optional nofail askuser))
    ))
)

(complete 40)

(if (<> (BITAND ToDo $4) 0)
    ((set newdest (askdir (prompt "Bitte wählen Sie, wohin das XPK-Paket installiert werden soll.")
                          (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin das \
XPK-Paket installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
Installationsprogramm wird KEINE eigene Schublade für das XPK-Paket anlegen.\n\n" @askdir-help))
                          (default (tackon savedest "XPK"))
                          (newpath))
     )

     (if (= (exists newdest) 0)
         (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
                          (help @makedir-help)
                          (infos))
     )

     (working "XPK-Paket wird ausgepackt. Bitte ein Weilchen Geduld...")
     (if (= (substr newdest (- (strlen newdest) 1) 1) ':')
         (set Err (run ("\"c/lha\" x -a -m -q -x -M \"XPK/XPKusr_2,4.lha\" \"%s\"" newdest)))
         (set Err (run ("\"c/lha\" x -a -m -q -x -M \"XPK/XPKusr_2,4.lha\" \"%s/\"" newdest)))
     )

     (if (<> Err 0)
         (message "Fehler beim Auspacken. Das XPK-Paket ist wahrscheinlich nur unvollständig installiert.")
     )
     (if (= (BITAND ToDo $1) 0)
         ((set @default-dest newdest)
          (set @app-name "XPK-Paket")
         )
     )
    )
)

(complete 80)

(if (<> (BITAND ToDo $8) 0)
    ((set newdest (askdir (prompt "Bitte wählen Sie, wohin Magic Menu kopiert werden soll.")
                          (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin \
Magic Menu installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
Installationsprogramm wird KEINE eigene Schublade für Magic Menu anlegen.\n\n" @askdir-help))
                          (default (tackon savedest "MagicMenu"))
                          (newpath))
     )

     (if (= (exists newdest) 0)
         (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
                          (help @makedir-help)
                          (infos))
     )

     (copyfiles (prompt "Kopiere Magic Menu...")
                (help @copyfiles-help)
                (source "MagicMenu")
                (dest newdest)
                (all))

     (if (askbool (prompt "Soll Magic Menu beim Hochfahren des Rechners automatisch aktiviert werden?")
                  (help @askbool-help)
                  (default 1))
      (if (OR (= (database "cpu") "68030") (= (database "cpu") "68040"))
       (copyfiles (prompt "Kopiere Magic Menu/68030 nach WBStartup...")
                  (help @copyfiles-help)
                  (source "MagicMenu/MagicMenu.030")
                  (dest "sys:WBStartup")
                  (infos))
       (copyfiles (prompt "Kopiere Magic Menu/68000 nach WBStartup...")
                  (help @copyfiles-help)
                  (source "MagicMenu/MagicMenu.030")
                  (dest "sys:WBStartup")
                  (infos))
      )
     )

     (if (= (BITAND ToDo $1) 0)
         ((set @default-dest newdest)
          (set @app-name "Magic Menu")
         )
     )
    )
)



(complete 100)

(exit)